I want to talk about how cool flexdashboards are, and give you an example of a page made using flexdashboard! You can also see a flexdashboard creation under the Research/Rana Boylii page of the website.
frog
What really makes flexdashboards great is that they are highly integrated with RMarkdown and make it really easy (and flexible!) to incorporate text, graphics, shiny apps, etc. into a compact and aesthetically dynamic document.
frog2
FYLF Eggs
SP
Write some really amazing words here…maybe a list of words you could use instead of amazing, such as:
---
title: "Using Flexdashboard"
categories: blog
layout: post
date: "`r format(Sys.time(), '%Y-%m-%d')`"
output:
flexdashboard::flex_dashboard:
theme: journal
source: embed
orientation: columns
vertical_layout: scroll
logo: ../img/fylf_icon.png
---
```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)
library(dygraphs)
library(dplyr)
library(viridis)
## FYI you can create an icon with `convert photo.png -resize 72x92 photo2.png`
```
# Flexdashboards Overview {data-icon="fa-leaf"}
## Flexdashboards {.sidebar}
I want to talk about how cool [*flexdashboards*](http://rmarkdown.rstudio.com/flexdashboard/) are, and give you an example of a page made using flexdashboard! You can also see a flexdashboard creation under the `Research/Rana Boylii` page of the website.
Column
-----------------------------------------------------------------------
#### Flexdashboards in RStudio
What really makes flexdashboards great is that they are highly integrated with RMarkdown and make it really easy (*and flexible!*) to incorporate text, graphics, shiny apps, etc. into a compact and aesthetically dynamic document.
# Flex! {data-icon="fa-map"}
Column {data-width=800}
-----------------------------------------------------------------------
### River Stage on NFA
```{r nfa}
# load data
load(".././data/2011-2015_solinst_mainstem_hourly_compensated.rda")
nfa<- hrly2 %>%
filter(site=="NFA" & WY==2015) %>%
select(Datetime, Level, wyd)
nfa2 <- ggplot() + geom_line(data=nfa, aes(x=Datetime, y=Level), color="gray40") +
geom_point(data=nfa, aes(x=Datetime, y=Level, color=Level),
pch=21, fill="gray", alpha=0.7) + theme_bw() +
scale_color_viridis() + ylab("Stage (m)")
ggplotly(nfa2)
```
### River Stage on MFA
```{r mfa}
# load data
load(".././data/2011-2015_solinst_mainstem_hourly_compensated.rda")
mfa<- hrly2 %>%
filter(site=="MFA" & WY==2015) %>%
select(Datetime, Level, wyd)
mfa2 <- ggplot() + geom_line(data=mfa, aes(x=Datetime, y=Level), color="gray40") +
geom_point(data=mfa, aes(x=Datetime, y=Level, color=Level),
pch=21, fill="gray", alpha=0.7) + theme_bw() + ylab("Stage (m)") +
scale_color_viridis()
ggplotly(mfa2)
```
Column {.tabset data-width=400}
-----------------------------------------------------------------------
### Photos
### Cartoons
### Text!
Write some really amazing words here...maybe a list of words you could use instead of amazing, such as:
- Stupendous
- Superb
- Spectacular
- Outstanding
- Awesome
- Dogs Bollocks
- Deadly